home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / AOCM.ZIP;1 / AOCMDECM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  513 b   |  26 lines
  1. 1001  CLS
  2. 1010  REM *AOCM DECOMPRESSOR*
  3. 1020  SCREEN 7:LINE(50,10)-(250,100),3,B
  4. 1030  LOCATE 14,1:PRINT"NAME OF DATA FILE";:INPUT D$
  5. 1040  OPEN D$ FOR INPUT AS #1
  6. 1050  INPUT #1, A$
  7. 1052  IF ASC(A$)<>223 THEN END
  8. 1055  LET C=ASC(MID$(A$,3))-50
  9. 1056  LET X=ASC(MID$(A$,4))
  10. 1057  LET Y=ASC(MID$(A$,5))-40
  11. 1070  IF ASC(MID$(A$,2,1))=227 THEN GOSUB 1200
  12. 1080  IF ASC(MID$(A$,2,1))=228 THEN GOSUB 1300
  13. 1090  IF ASC(MID$(A$,2,1))=229 THEN GOSUB 1400
  14. 1100  GOTO 1050
  15. 1200  REM *PLOT Subroutine*
  16. 1240  PSET(X,Y),C
  17. 1250  RETURN
  18. 1300  REM *LINE Subroutine*
  19. 1310  LET R=ASC(MID$(A$,6))
  20. 1315  LET Q=ASC(MID$(A$,7))-40
  21. 1360  LINE(X,Y)-(R,Q),C
  22. 1370  RETURN
  23. 1400  REM *FILL Subroutine*
  24. 1440  PAINT(X,Y),C
  25. 1450  RETURN
  26.